home *** CD-ROM | disk | FTP | other *** search
/ U.S. Robotics Connections 2 / US Robotics Connections.iso / mac / SourceMc / teleadpt.DIR / 00007.ls < prev    next >
Encoding:
Text File  |  1996-02-29  |  930 b   |  43 lines
  1. on startMovie
  2.   global mycursor
  3.   set the colorDepth to 8
  4.   set mycursor to [1, 2]
  5. end
  6.  
  7. on resetit
  8.   set a to 0
  9.   puppetSprite(30, 0)
  10.   updateStage()
  11. end
  12.  
  13. on rollme
  14.   global mycursor
  15.   repeat with a = 30 to 30
  16.     if rollOver(a) then
  17.       puppetSprite(a, 1)
  18.       set old to the castNum of sprite a
  19.       set the castNum of sprite a to old + 1
  20.       set the cursor of sprite a to mycursor
  21.       updateStage()
  22.       repeat while rollOver(a)
  23.         go(the frame)
  24.         if the mouseDown then
  25.           sound playFile 1, "NOISE.AIF"
  26.           repeat while the mouseDown
  27.             if a < 30 then
  28.               set the castNum of sprite a to old
  29.               updateStage()
  30.               puppetSprite(a, 0)
  31.             end if
  32.           end repeat
  33.           exit
  34.           exit repeat
  35.         end if
  36.       end repeat
  37.       set the castNum of sprite a to old
  38.       puppetSprite(a, 0)
  39.       updateStage()
  40.     end if
  41.   end repeat
  42. end
  43.